;;;QQ:67762207==
[@jfcz]
{
#if
#say
___{FCOLOR/10}ãӭʹûϵͳĿǰ{FCOLOR/1}<$USERJF>{FCOLOR/10}{FCOLOR/12}\
{FCOLOR/12}Ѿ{FCOLOR/10} <$@USERCARDVAL>{FCOLOR/12} ֵʱȡ.{FCOLOR/12}\
{FCOLOR/2}{FCOLOR/12}\
{FCOLOR/2} {FCOLOR/12},ṩֵ߳,{FCOLOR/2} {FCOLOR/12}\
{FCOLOR/2} {FCOLOR/12}гֵ,ֵɹԺ󼴿ȡĻ־.  {FCOLOR/2} {FCOLOR/12}\
{FCOLOR/2} {FCOLOR/12}ߵ㿨ֵ밴ʽ:      {FCOLOR/2}{FCOLOR/12}\
{FCOLOR/2} {FCOLOR/12}㿨˺[ո]                           {FCOLOR/2}{FCOLOR/12}\
{FCOLOR/2}  磺{FCOLOR/1}12345678 12345                        {FCOLOR/2}{FCOLOR/12}\
{FCOLOR/2}  <[ߵ㿨ֵ]/@@InputCardName>                              {FCOLOR/2}{FCOLOR/12}\
{FCOLOR/2}  <[]/@youxijifen>                                      {FCOLOR/2}{FCOLOR/12}\
{FCOLOR/2}{FCOLOR/12}\

[@@InputCardName]
#ACT
actcmd CHECKCARDPASS
close

}

[@TakeYouJiFenCard]
{
#IF
#ACT
MOV D0 0
MOV D8 0
loadvalue D0 "ϵͳ.INI"  ȡʱ
loadvalue D8 "ϵͳ.INI"  Żݻ
#if
large D0 %CURHOUR
#ACT
BREAK
#SAY
˹ܽڿ<$OUTPUT(D0)>Сʱ󿪷!\
<뿪/@exit>

#IF
#SAY
Ŀǰ {FCOLOR/10}<$@USERCARDVAL>{FCOLOR/12} ־ȡ.\\
#ACT
mov A4 %USERNAME

#IF
EQUAL A4 <$̽ɫ1>
or EQUAL A4 <$̽ɫ2>
#SAY
,װĴ<$USERNAME>.\
Լȡ,ֻͨתʵķʽ,תƵҵ˻.\
<ɫ/@@InputPlayerName>\
#ACT
break


#IF
checkbaggage
EQUAL D8 1  ;;Żݻ
#say
{FCOLOR/10}200Ԫϵ߽ñ\\

<ȡ240/@take110jf(240,4)>  4鱦\
<ȡ360/@take110jf(360,7)>  7鱦\
<ȡ620/@take110jf(620,15)>  15鱦\
<ȡ1300/@take110jf(1300,40)>  40鱦\\

ע⣬{FCOLOR/1}ȡ޽Ʒ{FCOLOR/12}ڼڣֱȡԭû쵽ƷңGMŲ
Ȩ<$BrandName>\


#IF
checkbaggage
#say
<Ҫȡ/@@InputJifenCardNumber>\\

</@back>
#ELSESAY
ûλˣλú\\  
</@exit>



[@@InputPlayerName]
#ACT
mov A0 %INPUTSTR
mov 忨 ""
formatstr "where fld_character = '%s'" %A0
actcmd READSQL "KING_HUMPLUS" "fld_character" "忨" %A9

#IF
!EQUAL 忨 ""
#SAY
ĽɫΪ:<$OUTPUT(A0)>\
<ת˵/@@InputSellNum>\\

ر\
#ELSESAY
ڸýɫ.\\
<ɫ/@@InputPlayerName>\


[@@InputSellNum]
#ACT
mov D0 %INPUTNUM
#SAY
ĽɫΪ:<$OUTPUT(A0)>\
ת˵Ϊ:<$OUTPUT(D0)>\\
<ȷ/@SellSure>\

[@SellSure]
#IF
checkcmd CHECKCARDVALUE %D0
#ACT
formatstr "where fld_character = '%s'" %A0
actcmd READSQL "KING_HUMPLUS" "UserJfCard" "ûֿ" %A9

mov ֿ 0
actcmd READSQL "KING_HUMPLUS" "UserJfCard" "ֿ"
DEC ֿ %D0
actcmd WRITESQL "KING_HUMPLUS" "UserJfCard" %ֿ

inc ûֿ %D0
formatstr "where fld_character = '%s'" %A0
actcmd WRITESQL "KING_HUMPLUS" "UserJfCard" %ûֿ %A9
#SAY
Ѿû'<$OUTPUT(A0)>'ת˻־<$OUTPUT(D0)>.\
ԶԱнͼ.\\
<ر/@exit>\


#ELSEACT
break
#ELSESAY
Բ,û㹻Ļ־ת.\\
<ر/@exit>\







[@take110jf()]
#IF
#ACT
mov D0 %ARG(1)
mov D1 %ARG(2)
#IF
checkcmd CHECKWEIGHT ־ %D0
#elsesay
ʣฺΪ{FCOLOR/10} <$OUTPUT(P9)> {FCOLOR/12},װȡĵ.ðߵȡĵ.\\
<[ ]/@exit>
#ELSEACT
BREAK

;;=============================================================
#IF
checkcmd CHECKCARDVALUE %D0
#ACT
mov ƹԱCDKEY ""
formatstr "where fld_USERID = '%s' and IntroCDKEY IS NOT NULL" %USERID
actcmd READSQL "TBL_Promoters" "IntroCDKEY" "ƹԱCDKEY" %A9


#IF
checkcmd CHECKCARDVALUE %D0
!EQUAL ƹԱCDKEY ""
#ACT
formatstr "where selfCDKEY = '%s'" %ƹԱCDKEY
actcmd READSQL "TBL_Promoters" "CDKEYPoint" "ƹԱ" %A9
inc ƹԱ %D0
formatstr "where selfCDKEY = '%s'" %ƹԱCDKEY
actcmd WRITESQL "TBL_Promoters" "CDKEYPoint" %ƹԱ %A9



#IF
checkcmd CHECKCARDVALUE %D0
#ACT
give ־ %D0
mov ֿ 0
actcmd READSQL "KING_HUMPLUS" "UserJfCard" "ֿ"
DEC ֿ %D0
actcmd WRITESQL "KING_HUMPLUS" "UserJfCard" %ֿ
give 鱦 %D1


#SAY
Ѿȡ<$OUTPUT(D0)>־!ͬʱ[鱦]<$OUTPUT(D1)>ףϷ죡\
</@back>
#ELSEACT
break
#elseSAY
ӵеĻ־Ŀ!\
</@back>





[@@InputJifenCardNumber]
#IF
#ACT
MOV D2 0
MOV D0 0
mov D1 0
#IF
#ACT
mov  D0  %INPUTSTR
loadvalue D8 "ϵͳ.INI"  Żݻ

#IF
Small D0 1
Or Large D0 50000
#SAY
1-50000Χڵ.\
#ACT
break

#IF
EQUAL D8 1 
#SAY
ȡΪ{FCOLOR/1}챦{FCOLOR/12} \
ȷҪȡ,ȡ֮{FCOLOR/1}ҹԱһر{FCOLOR/12} ?\\
___<ȷ/@InputJifenCardNumber_2>  </@back>\
#ELSEACT
goto @InputJifenCardNumber_2



[@InputJifenCardNumber_2]
#if
checkcmd CHECKWEIGHT ־ %D0
#elsesay
ʣฺΪ{FCOLOR/10} <$OUTPUT(P9)> {FCOLOR/12},װȡĵ.ðߵȡĵ.\\
<[ ]/@exit>
#ELSEACT
BREAK

;;=============================================================
#IF
ELARGE  D0  1
checkcmd CHECKCARDVALUE %D0
#ACT
mov ƹԱCDKEY ""
formatstr "where fld_USERID = '%s' and IntroCDKEY IS NOT NULL" %USERID
actcmd READSQL "TBL_Promoters" "IntroCDKEY" "ƹԱCDKEY" %A9


#IF
ELARGE  D0  1
checkcmd CHECKCARDVALUE %D0
!EQUAL ƹԱCDKEY ""
#ACT
formatstr "where selfCDKEY = '%s'" %ƹԱCDKEY
actcmd READSQL "TBL_Promoters" "CDKEYPoint" "ƹԱ" %A9
inc ƹԱ %D0
formatstr "where selfCDKEY = '%s'" %ƹԱCDKEY
actcmd WRITESQL "TBL_Promoters" "CDKEYPoint" %ƹԱ %A9


#IF
ELARGE  D0  1
checkcmd CHECKCARDVALUE %D0
#ACT
mov ֿ 0
give ־ %D0
actcmd READSQL "KING_HUMPLUS" "UserJfCard" "ֿ"
DEC ֿ %D0
actcmd WRITESQL "KING_HUMPLUS" "UserJfCard" %ֿ


#SAY
Ѿȡ<$OUTPUT(D0)>־!\\
</@back>
#ELSEACT
break
#elseSAY
ӵеĻ־Ŀ!\\
</@back>



[@USERCARDVAL]
#ACT
actcmd READSQL "KING_HUMPLUS" "UserJfCard" "ֿ"
#SAY
<$OUTPUT(ֿ)>


}
;;;QQ:67762207
